home *** CD-ROM | disk | FTP | other *** search
/ DarkBASIC - The Ultimate 3D Game Creator / PCactive 8 CD1 - DarkBasic.iso / SOFTWARE / DEMOS / DarkForge2000 / snippets_vol1 / snip_blurtext.dba < prev    next >
Encoding:
Text File  |  2000-08-05  |  922 b   |  56 lines
  1. `    ------------------------------------------------------------------------
  2. `    Blur Text                                   DarkForge Snippet (6/8/2000)
  3. `    ------------------------------------------------------------------------
  4. `
  5. `    A nice and smooth text blur display.
  6.  
  7. sync rate 0
  8. sync on
  9. hide mouse
  10.  
  11. `    Change bl to alter the blur level (1 = very fast, 6 = very slow!)
  12.  
  13. bl=3
  14. t$="DARKFORGE"
  15.  
  16. ink rgb(255,0,0),rgb(0,0,0)
  17. set text font "Arial"
  18. set text size 40
  19.  
  20. create bitmap 1,320,100
  21.  
  22. do
  23.  
  24.     set current bitmap 1
  25.  
  26.     if counter=2
  27.  
  28.         ink rgb(0,0,0),0
  29.         x=rnd(10)+120
  30.         y=rnd(20)
  31.  
  32.         center text x,y,t$
  33.  
  34.         r=rnd(100)+155
  35.         g=rnd(100)+155
  36.         b=rnd(100)+155
  37.  
  38.         ink rgb(r,g,b),0
  39.  
  40.         center text x+1,y+1,t$
  41.         counter=0
  42.  
  43.     endif
  44.  
  45.     blur bitmap 1,bl
  46.     get image 1,0,0,320,100
  47.     set current bitmap 0
  48.     paste image 1,(screen width()-320)/2,(screen height()-100)/2
  49.  
  50.     inc counter
  51.  
  52.     sync
  53.  
  54. loop
  55.  
  56.